home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
editor
/
blksedtr.lha
/
BED
/
Rexx
/
IndentBlk.bed
< prev
next >
Wrap
Text File
|
1996-05-06
|
478b
|
36 lines
/*
** $VER: IndentBlk.bed 1.0 (02.01.96)
**
** Indent the selected block
*/
OPTIONS RESULTS
SetInputLock ON
SetDisplayLock ON
GetBlkDims
PARSE VAR RESULT mode . start . end
GetCursorPos
PARSE VAR RESULT y x .
IF mode = OFF THEN DO
SetStatusBar "Error: No block selected!"
END; ELSE DO
SetStatusBar "Indenting the block..."
Move LINE start
RecordMacro QUIET
ShiftRight TABS
MoveDown
EndMacro
PlayMacro end-start
Move y x
END
SetDisplayLock OFF
SetInputLock OFF